home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-ms-unix.el.z / efs-ms-unix.el
Encoding:
Text File  |  1998-05-21  |  5.6 KB  |  166 lines
  1. ;; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;
  4. ;; File:         efs-ms-unix.el
  5. ;; Release:      $efs release: 1.15 $
  6. ;; Version:      #Revision: 1.1 $
  7. ;; RCS:          
  8. ;; Description:  efs support for the Microsoft PC FTP server in unix mode.
  9. ;; Author:       Sandy Rutherford <sandy@tsmi19.sissa.it>
  10. ;; Created:      Thu Aug 19 08:31:15 1993 by sandy on ibm550
  11. ;; Modified:     Sun Nov 27 18:37:00 1994 by sandy on gandalf
  12. ;; Language:     Emacs-Lisp
  13. ;;
  14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15.  
  16. (provide 'efs-ms-unix)
  17. (require 'efs)
  18.  
  19. (defconst efs-ms-unix-version
  20.   (concat (substring "$efs release: 1.15 $" 14 -2)
  21.       "/"
  22.       (substring "#Revision: 1.1 $" 11 -2)))
  23.  
  24. (defvar efs-ms-unix-month-and-time-regexp
  25.   (concat
  26.    " \\([0-9]+\\) +" ; file size
  27.    "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct"
  28.    "\\|Nov\\|Dec\\) [ 0-3][0-9]"
  29.    " +\\([ 012][0-9]:[0-6][0-9]\\|[12][90][0-9][0-9]\\) +"))
  30.  
  31. ;;; entry points
  32.  
  33. (efs-defun efs-fix-path ms-unix (path &optional reverse)
  34.   ;; Convert PATH from UNIX-ish to MS-UNIX.
  35.   (if reverse
  36.       (concat "/" path)
  37.     (substring path 1)))
  38.  
  39. (efs-defun efs-fix-dir-path ms-unix (dirpath)
  40.   ;; Convert a path from UNIX-ish to MS-UNIX for a dir listing
  41.   (if (string-equal dirpath "/")
  42.       (error "Cannot grok disk names.")
  43.     (setq dirpath (substring dirpath 1))
  44.     (efs-save-match-data
  45.       (if (string-match "/$" dirpath)
  46.       (concat dirpath "*")
  47.     dirpath))))
  48.  
  49. (defmacro efs-ms-unix-parse-file-line ()
  50.   ;; Extract the filename, size, and permission string from the current
  51.   ;; line of a dired-like listing. Assumes that the point is at
  52.   ;; the beginning of the line, leaves it just before the size entry.
  53.   ;; Returns a list (name size perm-string nlinks owner).
  54.   ;; If there is no file on the line, returns nil.
  55.   (` (let ((eol (save-excursion (end-of-line) (point)))
  56.        name size modes nlinks owner)
  57.        (skip-chars-forward " 0-9" eol)
  58.        (and
  59.     (looking-at efs-modes-links-owner-regexp)
  60.     (setq modes (buffer-substring (match-beginning 1)
  61.                       (match-end 1))
  62.           nlinks (string-to-int (buffer-substring (match-beginning 2)
  63.                               (match-end 2)))
  64.           owner (buffer-substring (match-beginning 3) (match-end 3)))
  65.     (re-search-forward efs-ms-unix-month-and-time-regexp eol t)
  66.     (setq name (buffer-substring (point) eol)
  67.           size (string-to-int (buffer-substring (match-beginning 1)
  68.                             (match-end 1))))
  69.     (list name size modes nlinks owner)))))
  70.  
  71. (efs-defun efs-parse-listing ms-unix (host user dir path &optional switches)
  72.   ;; Parse the current buffer which is assumed to be output from
  73.   ;; the Microsoft FTP server in unix mode.
  74.   ;; Return a hashtable as the result. SWITCHES are never used,
  75.   ;; but they must be specified in the argument list for compatibility
  76.   ;; with the unix version of this function.
  77.   ;; HOST = remote host name
  78.   ;; USER = user name
  79.   ;; DIR = directory in as a full remote path
  80.   ;; PATH = directory in full efs path syntax
  81.   ;; SWITCHES = ls switches
  82.   (goto-char (point-min))
  83.   (efs-save-match-data
  84.     (if (re-search-forward efs-ms-unix-month-and-time-regexp nil t)
  85.     (let ((tbl (efs-make-hashtable))
  86.           size modes nlinks dir-p owner file)
  87.       (beginning-of-line)
  88.       (while (setq file (efs-ms-unix-parse-file-line))
  89.         (setq size (nth 1 file)
  90.           modes (nth 2 file)
  91.           nlinks (nth 3 file)
  92.           owner (nth 4 file)
  93.           file (car file)
  94.           dir-p (= (string-to-char modes) ?d))
  95.         (if (and dir-p
  96.              (string-match "/$" file))
  97.         (setq file (substring file 0 -1)))
  98.         (efs-put-hash-entry file (list dir-p size owner modes nlinks) tbl)
  99.         (forward-line 1))
  100.       (efs-put-hash-entry "." '(t) tbl)
  101.       (efs-put-hash-entry ".." '(t) tbl)
  102.       tbl))))
  103.  
  104. ;;; Tree Dired
  105.  
  106. ;; ms-unix does not have a total line
  107.  
  108. (efs-defun efs-dired-insert-headerline ms-unix (dir)
  109.   ;; MTS has no total line, so we insert a blank line for
  110.   ;; aesthetics.
  111.   (insert "\n")
  112.   (forward-char -1)
  113.   (efs-real-dired-insert-headerline dir))
  114.  
  115. (efs-defun efs-dired-manual-move-to-filename ms-unix
  116.   (&optional raise-error bol eol)
  117.   ;; In dired, move to the first char of filename on this line.
  118.   ;; Returns (point) or nil if raise-error is nil, and there is no
  119.   ;; no filename on this line.
  120.   ;; This version is for ms-unix.
  121.   (or eol (setq eol (save-excursion (skip-chars-forward "^\r\n") (point))))
  122.   (let (case-fold-search)
  123.     (if bol
  124.     (goto-char bol)
  125.       (skip-chars-backward "^\n\r")
  126.       (setq bol (point)))
  127.     (if (re-search-forward efs-ms-unix-month-and-time-regexp eol t)
  128.     (point)
  129.       (and raise-error (error "No file on this line")))))
  130.  
  131. (efs-defun efs-dired-manual-move-to-end-of-filename ms-unix
  132.   (&optional no-error bol eol)
  133.   ;; Assumes point is at the beginning of filename.
  134.   ;; So, it should be called only after (dired-move-to-filename t)
  135.   ;; On failure signals an error, or returns nil.
  136.   ;; This is the ms-unix version.
  137.   (let ((opoint (point)))
  138.     (and selective-display
  139.      (null no-error)
  140.      (eq (char-after
  141.           (1- (or bol (save-excursion
  142.                 (skip-chars-backward "^\r\n")
  143.                 (point)))))
  144.          ?\r)
  145.      ;; File is hidden or omitted.
  146.      (cond
  147.       ((dired-subdir-hidden-p (dired-current-directory))
  148.        (error
  149.         (substitute-command-keys
  150.          "File line is hidden. Type \\[dired-hide-subdir] to unhide.")))
  151.       ((error
  152.        (substitute-command-keys
  153.         "File line is omitted. Type \\[dired-omit-toggle] to un-omit.")))))
  154.     (if (eolp)
  155.     (progn
  156.       (goto-char opoint)
  157.       (if no-error
  158.           nil
  159.         (error "No file on this line")))
  160.       (end-of-line)
  161.       (if (char-equal (preceding-char) ?/)
  162.       (forward-char -1))
  163.       (point))))
  164.  
  165. ;;; end of efs-ms-unix.el
  166.